home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 49
/
Commodore_Disc_49_19xx_-_de.d64
/
editext 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
48 lines
10 rem =========================
20 rem editext c64
30 rem
40 rem written by a. mittelmeyer
50 rem =========================
100 gosub2280:printchr$(14)
2040 rem -------------------------
2050 rem menue
2060 rem -------------------------
2070 printchr$(147):print""
2072 print" [197]ditext, der schnelle [212]exteditor"
2074 print:print" -------------------------------------"
2080 print:printspc(5)"1 = [206]euer [212]ext"
2090 printspc(5)"2 = [212]ext [193]endern
2100 [153][166]5)"3 = str$rucken"
2110 [153][166]5)"4 = (NULL)aden"
2120 [153][166]5)"5 = (NULL)peichern"
2140 [153]:[153]" -------------------------------------"
2150 [153]" (lenontrol atn beendet valditiermodus)"
2160 [161]a$:[139]a$[178]""[167]2160
2170 [145][197](a$)[141]2190,2200,2210,2220,2240
2180 [137]2070
2190 [153]:[153]"(NULL)irklich neuer (NULL)ext j/n ?"
2191 [161]a$:[139]a$[178]""[167]2191
2192 [139]a$[179][177]"j"[167]2070
2195 [158]53100:[158]52972:[142]:[143] neuer text
2200 [158]53094:[158]52972:[142]:[143] aendern
2210 [159]8,4,7:[158]53022:[142]:[143] drucken
2220 [153]:[153]:[133]"ascile laden:";fi$
2230 [159]8,8,8,fi$:[158]52832:[158]52972:[142]:[143] laden
2240 [153]:[153]:[133]"ascile speichern:";fi$
2250 [159]8,8,15,"s:"[170]fi$:[160]8
2260 [159]8,8,8,fi$[170]",s,w":[158]53022:[142]:[143] speichern
2270 [143] nachladen editext.mc ====
2280 an[178]256[172][194](46)[170][194](45)[170]200:en[178]40959
2290 a[178]an[171]1:[141]2400
2300 [139]ah[178][194](56)[175]al[178][194](55)[167][142]
2310 [158]57812"editext.mp",8,1
2320 [151]780,0:[158]65493
2330 a[178]an:[141]2400
2340 [151]51978,al:[151]51979,ah
2350 a[178]en:[141]2400
2360 [151]51980,al:[151]51981,ah
2370 a[178]an[171]1:[141]2400
2380 [151]55,al:[151]56,ah:[151]an,0:[138]
2400 ah[178][181](a[173]256):al[178]a[171]256[172]ah:[142]
2410 [143] =programmende===============